home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / patches / finalwrapper3_13 / fwbugreport.rexx < prev    next >
OS/2 REXX Batch file  |  1997-02-15  |  6KB  |  83 lines
  1. /* $VER: FinalWrapperBug.rexx 1.1 (15.02.97) by NDY's */
  2.  
  3. /* File where the bug report is written to */
  4. bugfile="RAM:FinalWrapperBug.Txt"
  5.  
  6. OPTIONS RESULTS
  7. ARG version errortxt
  8. IF ~Open(bug,bugfile,"W") THEN EXIT 10
  9. CALL WriteLn(bug," ********************************************************************************")
  10. CALL WriteCh(bug," *                  FinalWrapper version ")
  11. CALL WriteCh(bug,version)
  12. CALL WriteLn(bug," - Bug Report                      *")
  13. CALL WriteLn(bug," *                                                                              *")
  14. CALL WriteLn(bug," * Name and address:  _________________________________________________________ *")
  15. CALL WriteLn(bug," *                                                                              *")
  16. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  17. CALL WriteLn(bug," *                                                                              *")
  18. CALL WriteLn(bug," * ____________________________________________  Country: _____________________ *")
  19. CALL WriteLn(bug," *                                                                              *")
  20. CALL WriteLn(bug," * Fax: ____________________  e-Mail: _________________________________________ *")
  21. CALL WriteLn(bug," *                                                                              *")
  22. CALL WriteLn(bug," ********************************************************************************")
  23. CALL WriteLn(bug," *                                                                              *")
  24. CALL WriteLn(bug," * The following error message was generated:                                   *")
  25. DO WHILE Length(errortxt)>0
  26.   CALL WriteLn(bug," *" Left(errortxt||Copies(" ",76),76) "*")
  27.   errortxt=Substr(errortxt,77)
  28. END
  29. CALL WriteLn(bug," *                                                                              *")
  30. CALL WriteLn(bug," * Which version of Final Writer are you using? (See screen title bar): _______ *")
  31. CALL WriteLn(bug," *                                                                              *")
  32. CALL WriteLn(bug," * What did you do before the error occurred? (Selected objects, text etc.)     *")
  33. CALL WriteLn(bug," *                                                                              *")
  34. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  35. CALL WriteLn(bug," *                                                                              *")
  36. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  37. CALL WriteLn(bug," *                                                                              *")
  38. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  39. CALL WriteLn(bug," *                                                                              *")
  40. CALL WriteLn(bug," * Other things that could be of importance:                                    *")
  41. CALL WriteLn(bug," *                                                                              *")
  42. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  43. CALL WriteLn(bug," *                                                                              *")
  44. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  45. CALL WriteLn(bug," *                                                                              *")
  46. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  47. CALL WriteLn(bug," *                                                                              *")
  48. CALL WriteLn(bug," * Software (tools etc.) running while the error occurred: ____________________ *")
  49. CALL WriteLn(bug," *                                                                              *")
  50. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  51. CALL WriteLn(bug," *                                                                              *")
  52. CALL WriteLn(bug," * ____________________________________________________________________________ *")
  53. CALL WriteLn(bug," *                                                                              *")
  54. CALL WriteLn(bug," ********************************************************************************")
  55. CALL WriteLn(bug," *                                                                              *")
  56. CALL WriteLn(bug," * Send the sheet to: Andreas Weiss, Dorfstrasse 24, CH-8212 Nohl (Switzerland) *")
  57. CALL WriteLn(bug," *                                                                              *")
  58. CALL WriteLn(bug," *                Or e-mail it to: ndys@ezinfo.vmsmail.ethz.ch                  *")
  59. CALL WriteLn(bug," *                                                                              *")
  60. CALL WriteLn(bug," ********************************************************************************")
  61. CALL WriteLn(bug,"                                                                                 ")
  62. CALL WriteLn(bug," * Information on your system and the installed FinalWrapper:                   *")
  63. CALL Close(bug)
  64. ADDRESS COMMAND "List ENVARC:FinalWrapper >>"||bugfile
  65. ADDRESS COMMAND "Type ENVARC:FinalWrapper/FWPath >>"||bugfile
  66. ADDRESS COMMAND "Type ENV:FinalWrapper/FinalWrapper.def >>"||bugfile "opt h"
  67. ADDRESS COMMAND "Version >>"||bugfile
  68. ADDRESS COMMAND "Cpu Check FPU >>"||bugfile
  69. ADDRESS COMMAND "Avail >>"||bugfile
  70. ADDRESS COMMAND "Info >>"||bugfile
  71. rxport=ADDRESS()
  72. IF ~Left(rxport,7)="FINALW." THEN
  73.   DO
  74.     DO i=1 TO 20 UNTIL portok
  75.       rxport="FINALW."||i
  76.       portok=Show("p",rxport)
  77.     END
  78.     IF portok THEN ADDRESS VALUE rxport
  79. ELSE
  80.   portok=1
  81. IF portok THEN ShowMessage 1 0 "Bug report saved in file" bugfile "Print bug report?" "Print" "Abort" ""
  82. EXIT
  83.